home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual dBase v5.5 / MUSIC1.PAK / VIEW.POP < prev   
Encoding:
Text File  |  1995-07-18  |  4.7 KB  |  163 lines
  1. *******************************************************************************
  2. *  PROGRAM:      View.pop
  3. *
  4. *  WRITTEN BY:   Borland Samples Group
  5. *
  6. *  DATE:         1/94
  7. *
  8. *  UPDATED:      5/95
  9. *
  10. *  REVISION:     $Revision:   1.1  $
  11. *
  12. *  VERSION:      Visual dBASE
  13. *
  14. *  DESCRIPTION:  This is a popup file used by all view forms in the Musical
  15. *                Methods application.  It allows seeing information in different
  16. *                orders (depending on which view you are running), setting
  17. *                filters, and searching.
  18. *
  19. *  PARAMETERS:   F  (parent form)
  20. *
  21. *  CALLS:        None
  22. *
  23. *  USAGE:        set procedure to View.pop additive
  24. *                F.popupMenu = new ViewPopup(F, "ViewPopup")
  25. *
  26. *******************************************************************************
  27. ** END HEADER -- do not remove this line*
  28. * Generated on 05/22/95
  29. *
  30. Parameter FormObj
  31. NEW VIEWPOPUP(FormObj,PopupName)
  32. CLASS VIEWPOPUP(FormObj,PopupName) OF POPUP(FormObj,PopupName)
  33.    this.OnInitMenu = {;set procedure to music.prg additive}
  34.  
  35.    DEFINE MENU ORGANIZATION OF THIS;
  36.        PROPERTY;
  37.          StatusMessage "Change viewing order of displayed information.",;
  38.          Text "&Organization"
  39.  
  40.          DEFINE MENU RANK OF THIS.ORGANIZATION;
  41.              PROPERTY;
  42.                StatusMessage "Order items by Rank.",;
  43.                Text "&Rank",;
  44.                OnClick CLASS::RANK_ONCLICK,;
  45.                Checked .T.
  46.  
  47.          DEFINE MENU ARTIST OF THIS.ORGANIZATION;
  48.              PROPERTY;
  49.                StatusMessage "Order items by Artist.",;
  50.                Text "&Artist",;
  51.                OnClick CLASS::ARTISTS_ONCLICK
  52.  
  53.          DEFINE MENU TITLE OF THIS.ORGANIZATION;
  54.              PROPERTY;
  55.                StatusMessage "Order items by Title",;
  56.                Text "&Title",;
  57.                OnClick CLASS::TITLES_ONCLICK
  58.  
  59.    DEFINE MENU BROWSE OF THIS;
  60.        PROPERTY;
  61.          StatusMessage "View the items in Browse mode.",;
  62.          Text "&Browse",;
  63.          OnClick CLASS::BROWSE_ONCLICK
  64.  
  65.    DEFINE MENU FILTER OF THIS;
  66.        PROPERTY;
  67.          StatusMessage "Select a group of items to view.",;
  68.          Text "&Filter",;
  69.          OnClick CLASS::FILTER_ONCLICK
  70.  
  71.  
  72.    DEFINE MENU SEARCH_FOR OF THIS;
  73.        PROPERTY;
  74.          Shortcut "CTRL-S",;
  75.          Text "&Search for...",;
  76.          OnClick CLASS::SEARCH_ONCLICK
  77.  
  78.    DEFINE MENU SKIP OF THIS;
  79.        PROPERTY;
  80.          Shortcut "CTRL-K",;
  81.          Text "S&kip...",;
  82.          OnClick CLASS::SKIP_ONCLICK
  83.  
  84.  
  85.  
  86.    *******************************************************************************
  87.  
  88.    procedure Rank_OnClick
  89.  
  90.    * Display form in Rank order.
  91.    *******************************************************************************
  92.  
  93.    CallShowRankView(form)           && Procedure in Music.prg
  94.  
  95.  
  96.    *******************************************************************************
  97.  
  98.    procedure Artists_OnClick
  99.  
  100.    * Display form in Artists Order.
  101.    *******************************************************************************
  102.  
  103.    CallShowArtistsView(form)        && Procedure in Music.prg
  104.  
  105.  
  106.    *******************************************************************************
  107.  
  108.    procedure Titles_OnClick
  109.  
  110.    * Display form in Titles  Order.
  111.    *******************************************************************************
  112.  
  113.    CallShowTitlesView(form)         && Procedure in Music.prg
  114.  
  115.  
  116.    *******************************************************************************
  117.  
  118.    procedure Browse_OnClick
  119.  
  120.    * Display form in Browse format.
  121.    *******************************************************************************
  122.  
  123.    BrowseEdit(form)                 && Procedure in Music.prg
  124.  
  125.  
  126.    *******************************************************************************
  127.  
  128.    procedure Filter_OnClick
  129.  
  130.    * Set up filter form.
  131.    *******************************************************************************
  132.  
  133.    FilterView(form)                 && Procedure in Music.prg
  134.  
  135.  
  136.    *******************************************************************************
  137.  
  138.    procedure Search_OnClick
  139.  
  140.    * Search for an item.  Brings up a dialog for specifying an item to searh for.
  141.    *******************************************************************************
  142.  
  143.    SearchItems(form)                && Procedure in Music.prg
  144.  
  145.  
  146.    *******************************************************************************
  147.  
  148.    procedure Skip_OnClick
  149.  
  150.    * Skip to a specified record.  Brings up a dialog for specifying how far
  151.    * to skip.
  152.    *******************************************************************************
  153.  
  154.    SkipItems(form)                  && Procedure in Music.prg
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161. ENDCLASS
  162.  
  163.